home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 8 / Revista do CD-ROM 8.iso / dados / program / skyborg / skyborg.exe / SHARED.DXR / 01375_Navigation Scripts.ls < prev    next >
Encoding:
Text File  |  1995-07-24  |  3.2 KB  |  112 lines
  1. on ProcessSlot
  2.   global gCurrentDrag, gWorldCoorList
  3.   set thisSprite to 4
  4.   spriteBox(thisSprite, 264, 300, 372, 389)
  5.   set thisCast to getaProp(myCast, "CardDown3Q")
  6.   set the castNum of sprite thisSprite to thisCast
  7.   updateStage()
  8.   wait(10)
  9.   set thisCast to getaProp(myCast, "CardDownHalf")
  10.   set the castNum of sprite thisSprite to thisCast
  11.   updateStage()
  12.   wait(10)
  13.   set thisCast to getaProp(myCast, "CardDownQuarter")
  14.   set the castNum of sprite thisSprite to thisCast
  15.   updateStage()
  16.   wait(10)
  17.   set the itemDelimiter to "_"
  18.   set thisCoor to value(the last item in gCurrentDrag)
  19.   set the itemDelimiter to ","
  20.   put thisCoor into item thisCoor of gWorldCoorList
  21.   set newWorld to value(CheckState("SH-P-MAP"))
  22.   set myMapInfo to value(item newWorld of gWorldCoorList)
  23.   SetState("SH-P-INFO", myMapInfo)
  24.   if myMapInfo >= 10 then
  25.     SetState("SH-CoorAvail", 2)
  26.   else
  27.     SetState("SH-CoorAvail", 1)
  28.   end if
  29.   ShowSite(gCurrentSite, 0, 0)
  30. end
  31.  
  32. on MapArrowNext
  33.   global gWorldList, myCast, gWorldCoorList
  34.   set thisSprite to the clickOn
  35.   if the shiftDown then
  36.     ReverseState("SH-P-MAP")
  37.   else
  38.     ChangeState("SH-P-MAP")
  39.   end if
  40.   set thisCast to getaProp(myCast, "SH-NextPlanet_SHIP-N_2")
  41.   set the castNum of sprite thisSprite to thisCast
  42.   myPlaySound("Fridge")
  43.   set newWorld to value(CheckState("SH-P-MAP"))
  44.   set myMapInfo to value(item newWorld of gWorldCoorList)
  45.   SetState("SH-P-INFO", myMapInfo)
  46.   if myMapInfo >= 10 then
  47.     SetState("SH-CoorAvail", 2)
  48.   else
  49.     SetState("SH-CoorAvail", 1)
  50.   end if
  51.   ShowSite(gCurrentSite, 0, 0)
  52. end
  53.  
  54. on ShowPlanetInfo
  55.   set thisSprite to the clickOn
  56.   set thisCast to getaProp(myCast, "SH-PlanetInfo_SHIP-N_2")
  57.   set the castNum of sprite thisSprite to thisCast
  58.   myPlaySound("Fridge")
  59.   updateStage()
  60.   wait(10)
  61.   ShowSite(gCurrentSite, 0, 0)
  62. end
  63.  
  64. on GotoPlanet
  65.   global gMovieSprite
  66.   set thisSprite to the clickOn
  67.   set thisCast to getaProp(myCast, "SH-GotoPlanet_SHIP-N_2")
  68.   set the castNum of sprite thisSprite to thisCast
  69.   myPlaySound("Fridge")
  70.   updateStage()
  71.   wait(10)
  72.   set newWorld to value(CheckState("SH-P-MAP"))
  73.   SetState("SH-LandedStill", newWorld)
  74.   set thisMovieFrm to 74 + newWorld
  75.   go(thisMovieFrm)
  76. end
  77.  
  78. on LaunchShip
  79.   set thisSprite to the clickOn
  80.   set thisCast to getaProp(myCast, "SH-LaunchShip_SHIP-N_2")
  81.   set the castNum of sprite thisSprite to thisCast
  82.   myPlaySound("Fridge")
  83.   updateStage()
  84.   wait(10)
  85.   SetState("SH-ShipDoorBut", 1)
  86.   SetState("SH-ShipInFlight", 2)
  87.   set newWorld to value(CheckState("SH-P-MAP"))
  88.   SetState("SH-LandedStill", newWorld)
  89.   go("LaunchShip")
  90.   ShowSite(gCurrentSite, 0, 0)
  91. end
  92.  
  93. on LandShip
  94.   global gMovieSprite
  95.   set thisMovieFrm to 0
  96.   set thisSprite to the clickOn
  97.   set gWorldList to "SKYPORT,GIBRALTE,LOST,SURVIORS,MARCON,PROJECT,GROTTON,NAUGLE,MERIKA,SHIP1,SHIP2"
  98.   set thisCast to getaProp(myCast, "SH-LandShip_SHIP-N_2")
  99.   set the castNum of sprite thisSprite to thisCast
  100.   myPlaySound("Fridge")
  101.   updateStage()
  102.   wait(10)
  103.   SetState("SH-ShipDoorBut", 1)
  104.   SetState("SH-ShipInFlight", 1)
  105.   set newWorld to value(CheckState("SH-P-MAP"))
  106.   SetState("SH-LandedStill", newWorld)
  107.   set thisMovieFrm to 59 + newWorld
  108.   go(thisMovieFrm)
  109.   set myNewMovie to item newWorld of gWorldList
  110.   play frame "LandShip" of movie myNewMovie
  111. end
  112.